home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #6 / Amiga Plus CD - 2004 - No. 06.iso / AmigaPlus / Begleitmaterial / 50Tools / Grafik / PerfectPaint / rexx / general / SaveADPro_Picture.rx < prev    next >
Text File  |  2001-12-03  |  379b  |  25 lines
  1. /* SaveAdpro Picture*/
  2.  
  3.     options results
  4.     parse ARG Port b
  5.  
  6.     IF ~SHOW('P','ADPro') THEN
  7.         DO
  8.             ADDRESS value Port
  9.         pp_Warn "Can't*locate*ADPro"
  10.       EXIT
  11.         END
  12.  
  13.     ADDRESS value Port
  14.     pp_asay 'Saving*file|Please*wait*...'
  15.     pp_save 't:pptemp' 0
  16.     pp_closeasay
  17.  
  18.     ADDRESS 'ADPro'
  19.   LFORMAT "UNIVERSAL"
  20.     ADPRO_TO_FRONT
  21.   LOAD 't:pptemp'
  22.  
  23.     ADDRESS COMMAND
  24.     'delete >nil: t:pptemp'
  25.